dATA       SEGMENT
MESS       DB 'TPCA INTERRUPT10!',0DH,0AH,'$'
DATA       ENDS
CODE       SEGMENT
             ASSUME CS:CODE,DS:DATA
START:     CLI
           MOV      AX,CS
           MOV      DS,AX
           MOV      DX,OFFSET INT10
           MOV      AX,2572H
           INT      21H
    
           IN       AL,21H
           AND      AL,0FBH
           OUT      21H,AL
           IN       AL,0A1H
           AND      AL,0FBH
           OUT      0A1H,AL
           MOV      CX,10
           STI
LL:        JMP      LL
INT10:     MOV      AX,DATA
           MOV      DS,AX
           MOV      DX,OFFSET MESS 
           MOV      AH,09
           INT      21H
           MOV      AL,20H
           OUT      20H,AL
           OUT      0A0H,AL
           LOOP     NEXT
           IN       AL,21H
          OR       AL,04H
           OUT      21H,AL
           STI
           MOV      AX,4C00H
           INT      21H
NEXT:      IRET
CODE       ENDS
           END      START
